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-- file SymbolControl .mesa; edited by Johnsson on July 25, 1978 5:01 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 

CompilerDefs: FROM "compilerdefs" , 

CopierDefs: FROM "copierdef s" , 

CPassl: FROM "cpassi", 

SegmentDefs: FROM "segmentdef s" , 

StreamDefs: FROM "streamdef s" , 

SymbolCompressorDefs: FROM "symbolcompressordef s", 

SymbolTable: FROM "symbol table", 

SymbolTableDefs: FROM "symbol tabledefs", 

SymDefs: FROM '"symdefs", 

SymSegDefs: FROM "symsegdef s", 

SymTabDefs: FROM "symtabdef s" , 

SystemDefs: FROM "systemdef s", 

TableDefs: FROM "tabledefs", 

TreeDefs: FROM "treedefs"; 

SymbolControl: PROGRAM 

IMPORTS CPassl, CopierDefs, SegmentDefs, StreamDefs, SymbolTable, SymbolTableDefs, SymTabDefs, System 
**Defs, TableDefs 

EXPORTS SymbolCompressorDefs, SymSegDefs, TreeDefs ■ 

BEGIN 

StreamHandle: TYPE - StreamDefs. StreamHandle; 
FileSegmentHandle: TYPE - SegmentDefs. FileSegmentHandle; 
FileHandle: TYPE = SegmentDefs . FileHandle; 
TableBase: TYPE ■ TableDefs .TableBase; 
PageSize: CARDINAL ■ Al toDef s .PageSize; 

EnterExtension: PUBLIC PROCEDURE [sei: SymDefs. ISEIndex, t: TreeDefs. TreeLink] » 
BEGIN 

IF t # TreeDefs. empty THEN ERROR; 
END; 

FindExtension: PUBLIC PROCEDURE [sei: SymDefs . ISEIndex] RETURNS [TreeDefs. TreeLink] ■ 
BEGIN 

RETURN[TreeDefs. empty] 
END; 

CopyTree: PUBLIC PROCEDURE [root: TreeDefs. Treeld, map: TreeDefs. TreeMap] RETURNS [TreeDefs. TreeLink] 

** a 

BEGIN 

--IF root. link # TreeDefs. empty THEN ERROR; 

RETURN[TreeDefs. empty] 

END; 

CompressSymbols: PUBLIC PROCEDURE [modulename: STRING, sseg: FileSegmentHandle, stream: StreamHandle] 
** 

RETURNS [pages: CARDINAL] ■ 
BEGIN OPEN SegmentDefs; 
tablepages: CARDINAL; 
table: POINTER; 
done: BOOLEAN «- FALSE; 

t ab 1 ep age s<-sseg. pages; 

UNTIL done DO 
done <- TRUE; 

table «- SystemDefs .AllocateResidentPages[tablepages]; 

Tab leDefs.InitializeTable[[LOOPHOLE[ table], tablepages*PageSize] , CompilerDef s.NTableDi vis ions]; 
SymTabDefs . symtabinit[]; 
CopierDef s. Copier I nit[]; 
CopierDefs .CreateFileTable[l]; 
CondenseModu1eInfo[modulename f sseg 
i CopierDefs. TableRelocated -> RESUME; 
Insufficient -> 

BEGIN 

done <- FALSE; 

tablepages «- tablepages - 1; 

CONTINUE 

END]; 
CopierDefs. Cop ierReset[]; 
SymTabDefs . symtaberasef]; 
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IF done THEN pages <- tableOut[stream]; 
TableDefs.EraseTable[]; 
SystemDefs.FreePages[ table]; 
ENDLOOP; 
END; 

— tables defining the current symbol table 

seb: TableBase; -- se table 
ctxb: TableBase; -- context table 
mdb: TableBase; -- module directory base 
bb: TableBase; -- body table. 

condenseNotify: TableDefs.TableNotif ier ■ 

BEGIN OPEN SymDefs; -- called whenever the main symbol table is repacked 

seb «- base[setype]; 

ctxb «- base[ctxtype]; 

mdb ♦- base[mdtype]; 

bb <- base[bodytype]; 
RETURN 
END; 

CondenseModulelnfo: PROCEDURE [modulename: STRING, seg: FileSegmentHandle] ■ 
BEGIN OPEN SymDefs, SymbolTableDef s , CopierDefs; 
mdi: MDIndex - FIRST[MDIndex]; 
table: SymbolTableHandle ■ TableForSegment[seg]; 
ibase: SymbolTableBase <- AcquireSymbolTable[table]; 
ibb, iseb, ictxb: TableBase; 
sei: SEIndex; 
isei: ISEIndex; 
ibti, vbti: BTIndex; 
rootbti, prevbti: BTIndex; 

CPassl.PlUnit[]; -- prefills symbol table 

TableDefs .AddNotify[ condenseNotify]; 

FilePackInit[modulename, ibase. stHandle. vers ion]; 

(mdb+mdi) .mdFile «- MakeFileTableEntry[seg.f ile, table]; 

compressedHeader «- ibase. stHandlet; 

ibb <- ibase. bb; 

iseb «- ibase. seb; ictxb <- ibase. ctxb; 

IF ~OpenIncludedTable[mdi] THEN ERROR; 

compressedHeader. directoryCtx *- FindIncludedCtx[mdi , ibase. stHandle. directoryCtx]; 

compressedHeader. outerCtx «- FindIncludedCtx[mdi , ibase. stHandle. outerCtx]; 

-- copy all the bodies first 
rootbti «- prevbti «- BTNull ; 
ibti <- FIRST[BTIndex]; 

UNTIL ibti ■ LOOPHOLE[ibase .stHandle. bodyBlock. size, BTIndex] DO 
WITH cbti: ibb+ibti SELECT FROM 
Callable »> 
BEGIN 

isei «• cbti .id; 
IF isei # SENull THEN 
BEGIN 

sei <- CopyIncludedSymbol[isei , mdi]; 
WITH (seb+sei) SELECT FROM 
id => vbti «- idinfo; 
ENDCASE -> ERROR; 
(bb+vbti) .localCtx ♦- 

IF ( ibb+ibti) . localCtx ■ ibase. stHandle. outerCtx THEN 

compressedHeader. outerCtx 
ELSE CTXNull; 
IF rootbti - BTNull THEN 
BEGIN 

rootbti <- vbti ; 

(bb+rootbti).link <- [parent , BTNull]; 
(bb+rootbti).firstSon ♦- BTNull; 
END 
ELSE IF prevbti - BTNull THEN 
BEGIN 

prevbti <- vbti; 

(bb+prevbti) .1 ink «- [parent , rootbti]; 
(bb+prevbti) .f irstSon *- BTNull; 
(bb+rootbti).f irstSon *- vbti; 
END 
ELSE 
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BEGIN 

(bb+vbti).link ♦■ (bb+prevbti) .link; 
(bb+prevbti).link ♦• [sibl ing.vbti]; 
(bb+vbti).firstSon <- BTNull ; 
prevbti ♦- vbti; 
END 
END; 
ibtl <- ibti + 

(WITH cbti SELECT FROM 
Outer ■> SIZE[Outer Callable BodyRecord], 
ENDCASE -> SIZE[Inner Callable BodyRecord]); 
END; 
ENDCASE ■> ibti <- ibti + SIZE[Other BodyRecord]; 
ENDLOOP; 

-- now copy other PUBLICS and transfer types 

FOR isei <- (ictxb+ibase.stHandle.outerCtx) .sel ist, ibase.NextSe[isei] UNTIL isei ■ SENull DO 
IF (iseb+isei) .public OR 

(SELECT ibase.XferMode[(iseb+isei).idtype] FROM 
procedure, signal, error, program ■> TRUE, 
ENDCASE «> FALSE) THEN 
sei «- CopyIncludedSymbol[isei, mdi]; 
ENDLOOP; 

Symbol Tab leDefs. Re leaseSymbol Tab le[i base]; 

CloseIncludedTable[]; 

FilePackReset[]; 

RETURN 

END; 

WriteObjectWords: PROCEDURE [s: StreamHandle, addr: POINTER, n: CARDINAL] * 
BEGIN 

IF StreamDefs.WriteBlock[s, addr, n] # n THEN ERROR; 
RETURN 
END; 

compressedHeader: SymDefs.STHeader; 

tableOut: PROCEDURE [s: StreamHandle] RETURNS [pages: CARDINAL]- 
BEGIN 

OPEN SymSegDefs; 
d: CARDINAL; 
BEGIN 

OPEN TableDefs, compressedHeader; 
importCtx <- SymDef s.CTXNull ; 
d ♦- SIZE[SymDefs.STHeader]; 
hvBlock. offset «- d; 

.size «- SymTabDefs. hashblock[]. length) ; 

d <- d + (htBlock.size <- TableBounds[httype].size) ; 
d «- d + (ssBlock.size <- TableBounds[sstype].size); 
d «- d + (seBlock.size *- TableBounds[setype].size) ; 
ctxBlock. offset <- d; 

d <- d + (ctxBlock. size «- TableBounds[ctxtype] .size); 
mdBlock. offset <- d; d <- d + (mdBlock.size *- TableBounds[mdtype].size) ; 
bodyBlock. offset «- d; 

d <- d + (bodyBlock. size <- TableBounds[bodytype].size) ; 
treeBlock <- litBlock «- extBlock <- [d, 0]; 
fgRelPgBase <- fgPgCount «- 0; 
END; 
WriteObjectWords[s, ©compressedHeader, SIZE[SymDef s.STHeader]]; 
WriteObjectWords[ 

s, SymTabDefs. hashblock[], base, compressedHeader. hvBlock. size]; 
WriteSubTable[s, httype]; 
WriteSubTable[s, sstype]; 
WriteSubTable[s, setype]; 
WriteSubTable[s, ctxtype]; 
WriteSubTable[s, mdtype]; 
WriteSubTable[s, bodytype]; 
pages «- (d+(PageSize-l))/PageSize; 
RETURN 
END; 



d <- d + (hvBlock 
htBlock. offset «- d 
ssBlock. offset «- d 
seBlock.off set «- d 



WriteSubTable: PROCEDURE [s: StreamHandle, table: TableDefs. TableSelector] 
BEGIN 
base: TableBase; • 
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size: CARDINAL; 

[base, size] «- TableDefs.TableBounds[tab1e]; 

WriteObjectWords[s, L00PH0LE[base], size]; 

RETURN 

END; 

START SymbolTable; 

END... 



